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Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


**F 1LE**1D**L IBCVTATB 


AAARAA TTTT 
AAAAAA ‘ TTTT 


rc 
y 
ers 
—e 
| aml 
oe 
@ 
@ 
@ 
@ 
aon 
aon 
44 
44 
44 
=—— 


AA 
AAAAAAAAAA 
AAAAAAAAAA 
AA BB BB eeene 
BB BB eoee 
BBBBBBEB cece 
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Raat Da Da bt ae Be Bd en ne ee Be 
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@ 
NOAQMAAMAQAMO 
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<= 
<= 
<< 
<= 
444-4 tt Ht 4 Ht SH HH Ht tt 


AAA AAA SH te 


be 
oe 
@ 

aon 
aon 
on 
aoa 
aon 
on 


rc 
Cc 

bs 

bo 

bt te he bt bs Be bs ss te te 


c 

= 
cat ew, 
od 
ead 
te bene 
nn 
nn 
nn 
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faa ht bg a bs One ae be es bt ss a be 


ban be 


Cc 
to 

ta be 

Bet et bs bs Bs me Bn as 9 a bas be Ps 


teed 
te 
nn 


=r 
bi- 
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v04-000 =SEP=1984 VMSLIB.SRCJCVTATB.MAR; 1 (1 


- TITLE ,igscyt ATB = ASCII NUMBER TO BINARY CONVERSION 
-IDENT ‘v04-000' 


) 


—PRARARAARARARAAALALALAAAARRLALALARARAAAA SARE SARAARRR RAR RRR RRA R AAA AR ERAS ARAL AS DO 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY ACCORDANCE ERM TH_TH 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

ITY FOR THE USE OR 7“ pemapaapebel OF ITS 


DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL 


IBIL 
SOFTWARE ON EQUIPMENT WHICH IS N 
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COOSCOCOCOCOCOCCOOSCO COO SOOSOOSOOOOOOSOOSOOSoSoOo 
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1 
: 
4 
5 
5 i 
8 
g 
0 
1 
§: 
4 
5 
6 
7 
8 
9 
0 
1 
gi 
4 
5 
6 
f 
4 ; EQUATED SYMBOLS: 
1 ° 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
g 
4 
5 
6 
7 
8 
9 
0 
1 
E 
4 
5 
§ 


COCO OCOCOOOCOCOCSOOOSOSCSOOSOSOOSO SOS OOOO SOOSCOCOCOCOOSOOOOOOOOOOOoOoOO 


00000004 COUNT = 4 : COUNT ARG IN ARG LIST 

00000008 STRIN NG = 8 : STRING ARG 

0000000C 000 RESULT = 12 + RESULT ADDRESS 
000 p++ 
000 3 
900 : FACILITY: SYSTEM LIBRARY 
900 > ABSTRACT: 
000 : THIS ROUTINE PERFORMS ASCII INTEGER TO BINARY CONVERSION IN 
000 F DECIMAL, OCTAL, AND HEX RADIX; RADIX DETERMINED BY ENTRY POINT. 
000 : AN OPT TONAL LEADING CieN” IS ACCEPTED. 
900 > ENVIRONMENT: 
000 : STAR NATIVE MODE PROCESSOR, ANY ACCESS LEVEL. NO SPECIAL 
000 ; INSTRUCTIONS OR SYSTEM SERVICES ARE USED. 9 LONGWORDS OF 
000 : STACK SPACE NEEDED. 
000 3 
000 i-- 
000 : 
08 .SBTTL HISTORY > DETAILED | 
000 : AUTHOR: ANDREW C. GOLDSTEIN 26-JAN-78 16:48 | 
$00 : MODIFIED BY: | 
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NARY CONVERSION 16-SEP-19 
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Oe 500 HISTOR ; DETAILED mie} 4: 4534 VMSLIB REIC CVTATB.MAR; 1 ” (1) - 
3g : bag $BL3001 Steven B. Lionel, 28-0c¢ t-1982 | 
9 ; Use .ENTRY instead of .WORD for entry mask. 
6¢ : 1-009 ACG0049 Andrew C. Goldstein, 20-Jun-1979 15:11 | 
o7 : Change module name to LIBSCVT_ATB per RTL standards 
65 : vO008  AcGo0d24 Andrew C. Goldstein, 27-Feb-1979 16:38 
96 : Fix ident and PSECTs for new RTL standards 
68 ;** 
69 


GUTPUT PARAMETERS: 
RESULT: ADDRESS TO STORE LONGWORD RESULT 


IMPLICIT OUTPUTS: 
NON 
COMPLETION CODES: 
RO = 1 SUCCESFUL CONVERSION 
= 0 ILLEGAL CHARACTER OR ZERO BYTE COUNT 
SIDE EFFECTS: 
NONE 
| 
| 
| 
| 
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vats DECLARATIONS Beep =19 4 yaa ‘}3 LYMSL IB. SREICVTATB.MAR: 1 . (1) | 
| 
8 4 R ~SBTTL DECLARATIONS 
0 73: | 
4 ; FUNCTIONAL DESCRIPTION: | 
8 76 ; THE ROUTINE WORKS IN THE OBVIOUS MANNER OF ALL CONVERSION ROUTINES 
0 77 ; IT SCANS THE INPUT STRING AND CONVERTS EACH CHARACTER INTO ITS 
00 78 ; NUMERICAL EQUIVALENT AND CHECKS IT FOR LEGALITY AGAINST THE RADIX. 
00 79 ; THE NUMBER BEING ACCUMULATED IS THEN MULTIPLIED BY THE RADIX AND THE 
00 3 NEW DIGIT IS ADDED IN. NON-RADIX CHARACTERS IN THE INPUT STRING CAUSE 
00 ; AN ERROR RETURN. A sion IN OTHER THAN THE FIRST CHARACTER POSITION 
8 ; AND OVERFLOW FROM 32 BITS (UNSIGNED) ALSO CAUSE AN ERROR RETURN. 
00 84 ; CALLING SEQUENCE: 
00 85 ; CALL LIBSCVT_DTB (COUNT,STRING,RESULT) ; CONVERT DECIMAL TO BINARY 
00 86 ; CALL LIBSCVT_OTB (COUNT,STRING,RESULT) ; CONVERT OCTAL TO BINARY 
86 4 3 CALL LIBSCVT_HTB (COUNT,STRING,RESULT) ; CONVERT HEX TO BINARY 
0 89 ; 
0 90 ; INPUT PARAMETERS: 
0 91 ; COUNT: BYTE COUNT OF INPUT STRING 
$ 4 : STRING: ADDRESS OF INPUT STRING 
0 94 ; IMPLICIT INPUTS: 
5 95; NONE 
0 3 
0 3 
0 ; 
0 3 
0 ; 
0 : 
0 - 
0 3 
0 3 
0 3 
0 3 
0 $ 
0 3 
0 
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ed ad ed dh od 
POPPONININININYD 2 OO KH OOOO OOOOCSCON NO 


0 .ENABL LSB 
0000 0 .PSECT _LIBSCODE,NOWRT,PIC,SHR,LONG 
09 t BASE AND VALUE TABLES TO CONVERT DIGITS INTO THEIR NUMERICAL VALUES 
30 41 61 000 BASETAB: .BYTE “A‘a', “A'A', “a'g? 
39 5A 7A 000 TOPTAB: "BYTE “Atz'. A'z*? Sarge 
30 37 57 00 VALTAB: "BYTE “A*a'-10, *A'A'-10, *A'0'-00 
00 
00 .ENTRY LIBSCVT_DTB,- : ENTRY FOR DECIMAL CONVERT 
003¢ 00 <M<R2,R3,R4,R5> : SAVE REGISTERS 2-5 
52. OA 00 000 MOVL #10,R2 > R2 = RADIX 
0c 11 90 BRB 10$ 
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Oe 500 DECLARATIONS eters 82:45:43 VMSLIB.SRCICVTATB.MAR; 1 ib 
003¢ 01 128 .ENTRY LIBSCVT_OTB,- ; ENTRY FOR OCTAL CONVERT ; 
12 129 “M<RO,R3,R4_R5> SAVE REGISTERS 2- | ; 
52 08 DO 0012 130 MOVL Hf R R2 = RADIX ; 
05 11 001 1 BRB 10$ : 
003¢ 0017 1 5 ENTRY LIBSCVT HTB,- : ENTRY FOR HEX CONVERT 3 
9019 134 AM<R2,R3,R4,R5> > SAVE REGISTERS 2-5 ; 
52 10 «00 0019 3 MOVL #16,R2 : R2 = RADIX | ; 
50 7¢ 001C 137 10$:  cLRa RO : ZERO INITIAL NUMB F 
53 7C «(OO1E)=—s «138 CLRQ OR + AND STRING bOINTER 1" SIGN | ; 
53? 90 139 DECL = RB + BACK OFF COUNT ; 
40.11 doce 140 BRB 70$ t AND ENTER PRE-TESTED LOOP ; 
55 08 BC43 9A 0024 148 20$:  MOVZBL @STRING(AP)CR3I,R5 ; GET NEXT CHARACTER ; 
53 pS «(002914 TSTL = RB : SEE Ri THIS IS FIRST CHARACTER : 
Of 12 0028 144 BNEQ 308 : SKIP SIGN CHECK IF NOT : 
28 455 91 O02D 145 CMPBsaRS ,#*A'+! : CHECK FOR PLUS ; 
32 13 0030 146 BEQL § ; 
2 55 «9 0032 147 CMPB sea, w#*A'=! ; CHECK FOR MINUS : 
04 12 0035 148 BNEQ 30$ + BRANCH IF NOT ; 
54 D6 0037 149 INCL R > SET NEGATIVE F ; 
2911 0039 130 BRB 70$ : OK = LOOP FOR NEXT CHARACTER ; 
51 d& 0038 138 30$:  CLRL RI ; INIT TABLE INDEX ; 
BE AF41 55 91 003D 153 40$: CMPB RS ,BASETABCR1) ; CHECK DIGIT AGAINST BASE CHARACTER ; 
07 1F 0042 154 BLSSU : BRANCH IF DIGIT IS L ; 
BA AF41 55 91 0044 155 CMPB RS, TOPTABLR1] ; CHECK DIGIT AGAINST TOP CHARACTER ; 
06 1B 0049 156 BLEQU 6 : BRANCH IF LESS = VAL ; 
EE 51 03 F2 0048 157 50$:  AOBLSS #3,R1,40$ : NOT THIS RANGE - TRY NEXT LOWER BASE : 
26 «11 O04 138 BRB 90$ : NOT A LEGAL DIGIT ; 
55 B1 AF41 82 0051 160 60$: SUBB VALTABLR1),R5 ; COMPUTE NUMERIC VALUE (NOTE =- ALWAYS +) $ 
52. 55 «D1 0056161 CMPL = RS. R2 : CHE CK DIGIT AGAINST RADIX : 
1¢ 1€ 0059 168 BGEGU 90 : TOUGH LUCK ...... : 
50 55 50 52 7A 005B 16 EMUL §_R2,RO,R5,RO : SCALE VALUE BY RADIX AND ADD DIGIT : 
51 D5 0060 164 TSTL OR : CHECK FOR OVERFLOW F 
13, «12 0062 165 BNEQG 90% ; 
BBS3 04 AC F2 0064 167 70$:  AOBLSS COUNT(AP),R3,20$ : LOOP FOR DIGITS : 
03 54 €9 0069 169 BLBC 4,808 : CHECK SIGN BIT ; 
50 50 CE 006C 170 MNEGL RO-R : MAKE NEGATIVE IF DESIRED : 
0c BC 50 00 O06F 171 80$: MOVL  RO.@RESULT(AP) : STORE RESULT : 
50 01 400 0073 16 MOVL #1,R0 : RETURN TRUE | ; 
04 0076 17 RET : 
0077 174; ; 
a 12 ; TO HERE ON ANY BAD CHARACTER : 
50 ps O77 177 60S: CLRL_—RO ; RETURN FALSE ; 
04 0079 178 RET | : 
007A 179 ; 
BAA 139 -DSABL LSB | 3 
oA | : 
OO7A 188 : 
007A 184 END : 
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Symbol fable 19 VMSLIB.SRCICVTATB.MAR; 1 (1) 
BASETAB 00000000 R 02 OP$_CVTLD , = QOQOQ006E OP$_SCANC 2 002A : 
COUNT = S298 O94 OPS"CVTLF PY OD900s¢ OP$-SKPC s 0090 $8 | ‘ 
LIBSCVT_DTB 00 y RG 0 OP$_CVTLG 2 8 4EFD OP$~ SPAN = 2 : 
LIBSCVT_HTB 00000017 RG 0 OP$_CVTLH = 08 FD OP$- SUBD = 8 6 . 
LIBSCVT-OTB 00000010 RG 0 OP$"CVTLP = 00 F OP$~- SUBD = 0000006 . 
_ACBB = eg OPS_CVTPL z Bo8 38 OP$— SUBF z 38 Og : 
OP$_ACBF = 0000004F OPS$_CVTPS = 0 S OP$~ SUBF = 0000004 | : 
OP$_ACBG = QOOO4FFD P$_CVTPT = 00000024 OP$—-SUBG 2 a a4 | : 
OP$_ACBH = QOOO6FFD OPS" CVTRDL = 00000068 $"SUBG = 000043FD | ; 
OP$_ADDD = 00000060 OPS_CVTRFL = 00000048 OP$_SUBH = site ca ; 
OP$_ADDD = 00000061 OP$_CVTRGL = 00004BFD OP$~ SUBH = 000063FD ; 
OPS ADDF ¢ = 000 o0s0 OP$_CVTRHL = its 1a OP$_ SUBP4 = $008 ¢ : 
OP$_ADDF = 00000041 OP$_CVTS = 00000009 OP$-SUBP6 s 00 : 
a Mag) = 000040FD OP$_CVTTP = 00000026 OP$_TSTD = 00000073 ‘ 
OP$_ADDG = 000041FD OP$_CVTWD = 00000060 OPS_TSTF = Bobs 53 ; 
OP$_ADDH = Q00060FD OPS_CVTWF = 00000040 OP$_TSTG = 000053FD 
OP$_ADDH = 000061FD OP$_CVTWG = Q0004DFD OP$_TSTH = 000073FD 
OP$_ADDP4 = ish C4 OP$_CVTWH = 00006DFD RESULT = 0000000C 
OP$_ADDP6 = 00000021 OP$_DIVD = 00000066 STRING = 00000008 
OP$_ASHP = 000000F8 OP$_DIVD = 00000067 TOPTAB 00000003 R 02 
OP$_CLRD = 0000007C OP$_DIVF = 00000046 VALTAB 00000006 R 02 
OPS_CLRF = 000000D4 OP$_DIVF = 00000047 
OP$_CLRG = 0000007C OP$_DIVG = 000046FD 
OP$_CLRH = 00007CFD OP$_DIVG = 000047FD 
OP$_CMPD = 00000071 OP$_DIVH = Q00066FD 
$_CMPF = 00000051 OP$_DIVH = 000067FD 
OP$_CMPG = 000051FD OP$_DIV = sat 44 | 
_CMPH = 000071FD OP$_EDITPC = 00000038 
OPS_CMPP3 = 00000035 OP$_EMO = 00000074 
OP$_CMPP4 = 00000037 OP$_EMODF = 00000054 
“CRC = 008 OP$_EMODG = 000054FD 
OP$_CVTBD = 0000006C OP$_EMODH = 000074FD 
OP$_CVTBF = 0000004C OP$_MATCHC = 00000039 
_CVTBG = QOO04CFD OP$_MNEGD = 00000072 
OP$_CVTBH = OOO06CFD OP$_MNEGF = 00000052 
OP$_CVTDB = 0068 OP$_MNEGG = 000052FD 
OP$_CVTDF = 00000076 OP$_MNEGH = 000072FD 
OP$_CVTDH = 2FD OP$_MOVD = 00000070 
OP$_CVTDL = 0000006A OP$_MOVF = 00000050 
$_CVTDW = 00000069 OP$_MOVG = 000050FD 
OPS_CVTFB = 0048 OP$_MOVH = 000070FD 
_CVIF = 00000056 OP$_MOVP = 00000034 
OPS$_CVTFG = 99FD OP$_MOVT = 0000002E | 
OPS_CVTFH = 000098FD OP$_MOVTUC = i ta 
~CVTFL = 0000004A OP$"MULD = 00000064 
OPS_CVTFW = 00000049 OPS" MUL = 00000065 
“CVT = 000048FD OP$—MULF = 00000044 
OP$_CVTGF = 000033FD OP$_ MUL = 00000045 
“CVTGH = 56F OP$"MULG = 000044FD 
OP$_CVTGL = QO004AFD OP$—MULG = 000045FD 
~CVTGW = 000049FD OP$"MULH = 000064FD | 
OP$_CVTHB = 68F OP$"MULH = 000065FD 
OP$~CVTHD = QOO0F7FD OP$"MULP z 8 B08 
~CVTHF = QOOOF6FD OP$—POLYD = 00000 
OP$_CVTHG = BODO TEED OP$"POL YF = 000 93 
OP$~CVTHL = OQO006AFD OP$"POLYG = 000055FD 
OP$_CVTHW = 000069FD OP$"POLYH = 000075FD 
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eu seman seme oe weenot 
' ; Psect synopsis ! 


ewan Sm ee ef 


PSECT name Allocation PSECT No. Attributes 

» SS a £8008 8 ( a 69 ( 0.) NOPIC USR CON ABS~ LCL aod NOEXE NORD NOWRT NOVEC BYTE 
SABSS 000 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_LIBSCODE QOOO007A ( 2.) PIC uUSR CO REL LCL SHR EXE = RD NOWRT NOVEC LONG 


ES AO 


ee renter ee see ee eos e nr oe we a + 


Phase Page faults CPU Time Elapsed Time 
Initialization 32 00:00:00.09 00:00:00.5 
ronnens processing 124 00:00:00.72 00:00:04.9 
Pas 344 00:00:08.49 00:00:16.9 
Symbol table sort 0 88 Bb 08 06 00:00:01.12 
Pass 2 48 00:00:03.09 00:00:06.38 
Symbol table output 11 00:00:00.10 00:00:00.30 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 aes So 4 00:00:00.00 
Assembler run totals 564 00:00:13.0 00:00:30.16 


36819 bytes (72 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 370 non-local and 9 local symbols. 
2936 source Lines wee read in Pass 1, producing 18 object records in Pass 2. 

134 pages of virtual memory were used to define 133 macros. 


Seo ee aoe ae Be Meme me 


The working set Limit was 1200 pages. 
Macro Library name Macros defined 

-5255$DUA28: CSYSLIBISTARLET.MLB;2 4 

420 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 
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